From 5de7045c8fa3c7df07c5ddf2e165e096a18b9963 Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Tue, 3 Mar 2026 12:43:37 +0000 Subject: [PATCH] [PATCH] TODO: Put a short summary on the line above and replace this paragraph with a longer explanation of this change. Complete the meta-information with other relevant fields (see below for details). To make it easier, the information below has been extracted from the changelog. Adjust it or drop it. Gbp-Pq: Name Version_2_6_15pre19 --- cmpnew/gcl_cmpfun.lsp | 7 ++++--- git.tag | 2 +- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/cmpnew/gcl_cmpfun.lsp b/cmpnew/gcl_cmpfun.lsp index 73045687..144f72e3 100755 --- a/cmpnew/gcl_cmpfun.lsp +++ b/cmpnew/gcl_cmpfun.lsp @@ -944,7 +944,7 @@ (defun c2gethash (args) (cond ((member *value-to-go* '(top return)) - (let* ((nargs (inline-args args '(t t))) + (let* ((nargs (inline-args args '(t t t))) (base *vs*)(*vs* *vs*) (r (cdr (vs-push)))(f (cdr (vs-push)))) (wt-nl "{ struct htent *_z=gethash" (if *safe-compile* "_with_check" "") "(" (car nargs) "," (cadr nargs) ");") @@ -956,10 +956,11 @@ (wt-nl "base[" f "]=Ct;") (wt-nl "}}") (wt-nl "vs_top=(vs_base=base+" base ")+" (- *vs* base) ";") - (unwind-exit 'fun-val nil (cons 'values 2)))) + (unwind-exit 'fun-val nil (cons 'values 2)) + (close-inline-blocks))) ((let ((*inline-blocks* 0) (*restore-avma* *restore-avma*) - (fd `((t t) t #.(flags rfa) + (fd `((t t t) t #.(flags rfa) ,(concatenate 'string "({struct htent *_z=gethash" (if *safe-compile* "_with_check" "") diff --git a/git.tag b/git.tag index ae0d68f3..07737b03 100644 --- a/git.tag +++ b/git.tag @@ -1 +1 @@ -"Version_2_6_15pre18" +"Version_2_6_15pre19" -- 2.30.2